home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / timeline.dir / 00118_Script_118 < prev    next >
Text File  |  1983-01-29  |  608b  |  23 lines
  1. ON ARCHIVIO_AUDIO
  2.   GLOBAL LISTA, TIPO, NOME, MATERIALE,utente,var_dll,videocast,sprit,soundfile,tavola
  3.   
  4.   set tipo to "Sound"
  5.   SET MATERIALE= soundfile
  6.   set videocast to 0
  7.   global mywindow
  8.   if objectp(mywindow) then forget mywindow 
  9.   if the machinetype = 256 then
  10.     set ttt=char 1 to 2 of the pathName&"\INVENZIO\NOME.DIR"
  11.   else
  12.     set ttt="INVENZIONI:INVENZIO:NOME.DIR"
  13.   end if
  14.   
  15.   set mywindow to window  "RACCOLTA"
  16.   SET THE FILENAME OF MYWINDOW TO TTT
  17.   
  18.   set the titlevisible of mywindow to true
  19.   set the windowType of window ttt to 0
  20.   open mywindow
  21. end if   
  22. end
  23.